home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 June
/
Ahoy_Magazine_87-06_1987_Double_L.d64
/
Crafty Comp 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
343b
|
12 lines
0 rem << cd42-11 >>
1 rem ==================================
2 rem commodares problem #38-2 :
3 print"[147]crafty comparison "
4 rem solution by
5 rem paul vaughan
6 rem ====== c64 only ==============
9 input n(2)
10 inputn:n(1+sgn(n-n(2)))=n:print"[145]"n"[157] largest so far ="n(2):n=10+peek(646)
11 poke 785,188:poke 786,168:poke n,peek(n):n=usr(0)
12 print"done"